home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
001
/
qmsstins.arc
/
COLORS.SCR
< prev
next >
Wrap
Text File
|
1987-09-20
|
1KB
|
98 lines
Goto Start
Show_it:
Colorfg 0
Display ' ** '
Colorfg 1
Display ' ** '
Colorfg 2
Display ' ** '
Colorfg 3
Display ' ** '
Colorfg 4
Display ' ** '
Colorfg 5
Display ' ** '
Colorfg 6
Display ' ** '
Colorfg 7
Display ' ** '
Colorfg 8
Display ' ** '
Colorfg 9
Display ' ** '
Colorfg 10
Display ' ** '
Colorfg 11
Display ' ** '
Colorfg 12
Display ' ** '
Colorfg 13
Display ' ** '
Colorfg 14
Display ' ** '
Colorfg 15
Display ' ** '
Return
Start:
Window 1 1 80 24
Colorbg 0
Clrscr
Colorbg 1
Colorfg 15
Box 1 1 80 13
Colorbg 1
Clrscr
Note F o r e g r o u n d C o l o r s
Note 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
Note 0
Note 1
Note B 2
Note a 3
Note c 4
Note k 5
Note 6
Note 7
Window 7 4 78 12
Gotoxy 1 1
Colorbg 0
gosub show_it
Gotoxy 1 2
Colorbg 1
gosub show_it
Gotoxy 1 3
Colorbg 2
gosub show_it
Gotoxy 1 4
Colorbg 3
gosub show_it
Gotoxy 1 5
Colorbg 4
gosub show_it
Gotoxy 1 6
Colorbg 5
gosub show_it
Gotoxy 1 7
Colorbg 6
gosub show_it
Gotoxy 1 8
Colorbg 7
gosub show_it
Window 1 15 80 24
Colorfg 15
Colorbg 0
Clrscr
GotoXY 1 12
Display "Enter Foreground Color "
get 0 2
display "Enter Background Color "
Get 1 1
ColorFG $0
ColorBG $1
window 1 1 80 24
clrscr
Note Color Change Done!
exit